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FACILITY: BASIC code support 
ABSTRACT: 

This module implements the BASIC-PLUS-2 EDITS function. 
ENVIRONMENT: User Mode, AST Reentrant 


AUTHOR: R. WILL, CREATION DATE: 2-May-79 
MODIFIED BY: 
R. Will, : VERSION 1 
-"Or riginal 
Fix bom of source and dest Ste, in TRM, RW 16-May-79 
Enable IV in to masks. 
shenes golts to ves at * Bs 16-JUL- 1979 
String cleanup. call PSTRSTRM. ae 31- aoe -79 


Make TRM a separate module. er 
Use general mode addressing. SBL 0-Nov--1981 
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| BASSTRA 15-SEP-1984 7:58:04 VAX/VMS Macro V04-00 Pa 
\ DECLARATIONS ra ioets yi 13:38:58 EBASRTL. SREJBASTRM OMAR: 1 ” 3) 
| 0 ; -SBTTL DECLARATIONS 
09 5 ; INCLUDE FILES: 
3 
099 8 SOSCDEF : Define descriptor offsets 
00 60 ; 
8 es ; EXTERNAL DECLARATIONS: 
000 83 -DSABL GBL : Prevent undeclared 
4 64 i symbols from being 
900 68 ; automatically global. 
000 6 -EXTRN STRSTRIM i routine to trim blanks and tabs 
0000 68 
0000 69 ; 
444 70 ; MACROS: 
000 71 ; 
0000 ts 
0000 73 5+ 
0000 74 ; Macro to generate tables to translate ASCII characters. This macro 
0000 75 ; will generate a table of bytes starting at the designated character 
0000 76 ; for the series of characters needed. 
000078 
0000 79 «MACRO GEN_TRANS_TABLE, NUMBER_OF_CHARS, STARTING_CHAR 
0000 80 I = STARTING CHAR 
0000 81 -REPT NUMBER_OF_CHARS 
0000 Hf -BYTE I 
0000 8 = 1 + 
0000 84 -ENDR 
0000 85 ENDM 
44 86 
000 87 ; 
0000 88 ; EQUATED SYMBOLS: 
0000 89 ; 
0000 90 
00000030 000 91 blank = *A/ / 
00000001 0000 9 space_or_tab = *x0001 
00000002 0000 9 junk _byte = *x0002 
00000004 0000 94 quote = *x0004 
00000003 4 32 space_tab_junk = “x0003 
0000000 $00 9 trim_parity_bit = 0 
0000001 0000 98 disc_sp_tab_bit = 1 
000000 000 99 disc. junk_b t = ¢ 
000000 4 130 disc_lead_ bit = 
0000004 101 compact_bit = 4 
000 0 19¢ upper_case_bit = 5 
BR RR. + parens_bit = § 
00000 104 disc_trail_bit = 
0000008 3 + ignor_quote_bit = 8 
000 1 5 3 
38 108 ; OWN STORAGE: 
0 109; 


6 11 
rt DECLARATIONS "BeSEp=1986 10:38:08 UBASRTL.SACSBASTAM-MaR:1 = "98° (3) 


. -PSECT _BASSCODE PIC, USR, CON, REL LCL, SHR, - 
0000 EXE, RD, NOWRT. LONG 


119 
111 ; 
6 : PSECT DECLARATIONS: 
0000 114 
115 
0000 116 


BASSTRM 
1-008 
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DECLARATIONS Pa iets 13:38:58 BASRTL.SRCJBASTRM.MAR; 1 te (4) 
aes -SBTTL BASSTRM - Delete trailing blanks and spaces 
: FUNCTIONAL DESCRIPTION: 
; This routine deletes trailing tabs and spaces from the source string 
s and then uses STRSCOPY to write the string in the destination. It 
; finds the last non-blank character by starting at the end of the 
: | pl and using each character to index into a table that has a 
: flag for spaces and tabs. 
; CALLING SEQUENCE: 
: CALL BASSTRM (dest_string.wx.dx, src_string.rx.dx) 
: INPUT PARAMETERS: 
7 src_string = 8 
IMPLICIT INPUTS: 


NONE 
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44 OUTPUT PARAMETERS: 
00000004 444 dest_string = 4 
0000 3 IMPLICIT OUTPUTS: 
0000 3 
0000 3 NONE 
0000 3 
0000 3 FUNCTION VALUE: 
0000 3; COMPLETION CODES: 
0000 3 
0000 j NONE 
0000 : 
4444 3; SIDE EFFECTS: 
0000 3 STRSCOPY may allocate space to the destination string. Any of 
0000 : STRSCOPY's errors may be signalled. 
0000 3 
0000 i-- 
0000 
0000 38 ENTRY BASSTRM, “M<> 
g¢ 

$0 ; Register usage 

B08 3° 
00000000 ' GF 6C FA 000 CALLG (AP), G*STRSTRIM 
04 000 RET 3: End of BASSTRM 

Bebe 

00A 


111 
ASSTRMA 15-SEP-1984 23:58:04 VAX/VMS Macro v04-00 P 
#308 BASSTRM - Delete trailing blanks and g-SEp-1 984 $9:38358 BASHTL. SAE IBAS RM BAR: 1 (3) 


A 172 ;+ 
o 138 3; The following tables are used for the SPANC, SCANC, and MOVTC instructions 
A 174; used on the BASSEDIT routine 
A 175 ;:- : 
A 176 
A 7 
oA 178 3+ 
A 179 ; Table used to ‘remove parity bit’ from all characters in the character 
000k : ; string. Used to ensure that the high bit is clear on all characters. 
OOA 1 ¢ 
BRA 1 PARITY_TAB: 
A 184 GEN_TRANS_TABLE \¢8. 8 : fill ASCII character set 
O8A 185 GEN_TRANS_TABLE 128, 3 truncate hi bit 
git ee 
S104 188 ; Table used to translate lower case to uppercase. Translate rest of 
010A 189 ; ASCII character set to self. 
O10A 190 ;- 
010A 191 
010A 195 UPCASE_TAB: 
O10A 3819 GEN_TRANS_TABLE 97, 0 ; fill table to start of lowercase 
0168 194 GEN_TRANS_TABLE 26, 65 ; translate lower to upper 
0185 195 GEN-TRANS- TABLE 135, 123 : finish table, translate to selt 
020A 197 SQBRAK_TO_PAREN: 
020A 198 GEN_TRANS_TABLE 91, 0 ; translate to self 
28 0265 199 BYTE 40 ; translate C to ( 
5c 0 $6 00 -BYTE 92 3; translate to self 
29 026 01 -BYTE 41 3; translate ] to ) 
8 88 8 GEN_TRANS_TABLE 162, 94 ; translate remainder to self 
030A 204 UPCASE_PAREN: 
been 05 GEN_TRANS_TABLE 91, 0 ; translate to self 
28 65 06 -BYTE 40 3 translate C to ( 
5C 0366 07 -BYTE 92 3; translate to self 
29 0367 08 BYTE 41 ; translate J to ) 
0368 09 GEN_TRANS_TABLE 3, 94 ; translate to self 
$68 10 GEN_TRANS_TABLE 26, 65 ; translate lower to upper 
385 1 GEN-TRANS-TABLE 135, 123 : finish table, translate to self 
040A 13 SCAN_SPAN_ TABLE: 
02 040A 14 BYTE unk_byte 3 NUL 
00°00'00°00'00'00'00'00" re | 15 -BYTE (8) : skip over 
01 041 1 -BYTE space_or_tab 3 tab 
‘ 414 1 BYTE unk_byte ; 
02°02" 0616 519 ‘BYTE kbyte(2] ; FF and eR 
: n e : an 
00°00"00"00"00"00"00"00"00"00"S3" f ai 20 BYTE t13] ’ 3; skip over 
3 425 1 BYTE yok byte ; ESC 
00°00°00°00° 0426 $ -BYTE 4) ; skip over 
1 Q42A «BYTE gace_or_tab 3 Space 
0 0428 4 -BYTE : skip over 
4 042C 5 BYTE quote ; double quote 
00°00'°00'00' 042D $ BYTE 4 ; skip over 
04 0451 BYTE quote 3; single quote 


tine 
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BYTE 
-BYTE 
BYTE 
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END 


BASSTRA 
Symbol table 
BASSTRM 8 RG 02 
JUNK _BYTE = 
PARITY_TAB AR 02 
Quo z 4 
SCAN, SPAN_ TABLE : 40A R 02 
SPAC TAB = 0 8 1 
SQBRAR_TO_PAREN 000020A R 
STRSTRIM geeeenee 
UPCASE ramen £8800 308 Q 
UPCASE— TAB 0000010A R 0 
tmnmeomonsn an caman + 
! Psect synopsis ! 
eon noone anaocames $ 
PSECT name Allocation PSECT No. Attributes 
ABS . 00000009 ( 0.) 00 ¢ O.) NOPIC  USR 
S$ 00000000 ; 0.) OF ¢ #1.) NOPIC USR 
BASSCODE OO000S0A ( 1290.) 02 ‘ PIC USR 
pee ome ese nrn wD ews omeonowoeae 
! ;_Per formance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization rH 00:00:00.07 00:00:00.54 
Command processing 104 00:00:00.48 00:00: 202.44 
Pass 1 226 00:00:07.60 00:00:15.55 
Symbol table sort 0 00:00:00.19 00:00:00.40 
Pass 2 57 00:00:01.72 00:00:03.86 
Sabel table output 2 es fT) bs Be 
Psect synopsis output 2 00:00:00.0 00:00:00.0 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 422 00:00:10.11 00:00:22.84 


53938 bytes (106 
There were 10 
231 source Lines were read in Pass 1, 


pages) of virtua 


Macro Library name 


~-$255$DUA28: CSYSLIBISTARLET.MLB; 2 


The working set Limit was 1350 pages. 
memory were used to buffer 
pages of symbol table apace or jecetee to hold 15 


acros. 


190 GETS were required to define 4 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:BASTRM/OBJ=OBJ$:BASTRM MSRC$:BASTRM/UPDATE=(ENHS$:BASTRM) 


p19 


CON 
CON 
CON 


he intermediate code. 

non-local and 0 Local symbols. 
produci "t 15 object records in Pass 2 

9 pages of virtual memory were used to define 8 m 


< 10:38:28 


LCL N 
LCL 
LCL 


AX/VMS Macro v04-00 


Page 
BASRTL.SRCIJBASTRM.MAR; 1 


os NOEXE NORD I NOVEC BYTE 
NOSHR EXE RD T NOVEC BYTE 
SHR EXE RD NOURT NOVEC LONG 
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